(flyspell-mode-on): Only output welcome message if interactive.

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 74c07f19602d2f7f7bb5e777c42084fbe2de041f..8854633d58f96cc877ed495efb94ae77985c339e 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -529,7 +529,7 @@ flyspell-buffer checks the whole buffer."
         (set-keymap-parent map (current-local-map))
         map))
   ;; the welcome message
-  (if flyspell-issue-welcome-flag
+  (if (and flyspell-issue-welcome-flag (interactive-p))
       (let ((binding (where-is-internal 'flyspell-auto-correct-word
                                        nil 'non-ascii)))
        (message